INTRINSIC SUBROUTINES 



INPUT (port.var) 
OUTPUT (port, exp) 



Port Input 
Port Output 



ISIS-II 8080/8085 COMPILER INVOCATION 

The 8080/8085 FORTRAN compiler is invoked by the ISIS-II command: 
-[device] FORT80 sourcefile [compiler controls] 

ISIS-II COMPILER CONTROLS 

The following list shows the controls available, the basic function they 
control, and whether they are primary or general (P/G). Default controls 
are italicized. 



Controls 



P/G 



OBJECT I NOOBJECJ P 

DEBUGINODEBUG P 

OPTIMIZE (0) /OPTIMIZE (1) P 

PW/V77NOPRINT P 

LIST /NOLIST G 

SYMBOLS / NOSYMBOLS P 

CODEINOCODE G 

XREF/A/OW£F P 

PAGING /NOPAGING P 

PAGELENGTH (60 P 

PAGEWIDTHf^O; P 

DATE P 

TITLE P 

EJECT G 

REENTRANT P 

D077 /D066 P 

STORAGE (INTEGERS ) P 

STORAGE (LOGICAL*/) P 

FREEFORM INOFREEFORM G 

INCLUDE G 

VJOBKF\LES(:F1:,:F1:) P 

SAVE G 

RESTORE G 



Object File 
Object File 
Object File 
Compiler Listing 
Compiler Listing 
Compiler Listing 
Compiler Listing 
Cross-Reference Listing 
Listing Format 
Listing Format 
Listing Format 
Listing Format 
Listing Format 
Listing Format 
Procedure Reentrancy 
DO Loop Interpretation 
Storage Unit Length 
Storage Unit Length 
Source Line Format 
Source File Inclusion 
Workfile Devices 
Stack Controls 
Fetch Controls 



LINKING RELOCATABLE OBJECT MODULES 

The syntax of the ISIS-II LINK command is: 

LINK/npur/Zsr TOIInkfile [link controls] 

inputlist must include the following: 

[RMX8XX.LIB (START),] object-files, F80RUN.LIB, & 



HEX-ASCII TABLE 



FUNCTION AREA 



F80ISS.LIB 

F80RMX.LIB; 

F80NIO.LIB 



.FPEF.LIB, 



/ FPSOFT.LIB N 
FPHARD.LIB 
FPSFTX.LIB 
FPHRDX.LIB 
FPHX10.LIB 
FPNULL.LIB 



,[RMX-files,]PLM80.LIB 



where braces indicate a choice and the items in brackets are required 
only under RMX/80. LINK controls are MAP, NAME, and PRINT. 

To link non-RMX programs for which F80RUN.LIB, F80ISS.LIB, 
FPEF.LIB, FPSOFT.LIB, and PLM80.LIB are selected and LINK controls 
are not needed, use: 



SUBMIT FLINK {objectfile, linkfile yib-drive]) 

where if lib-drive is omitted, the libraries are assumed to be on :F0:. 

LOCATING MODULES 
The syntax of the ISIS-II LOCATE command is: 
LOCATE inputfile [TO outputfile ] [locate controls] 



LOCATE controls are: 
ORDER (segids) 
CODE (addr) 
DATA (add r) 
STACK (addr) 
MEMORY (addr) 
/common name/ (addr) 



//(addr) NAME (module) 

PRINT fname STACKSIZE(m) 

NOPRINT START (addr) 

MAP PURGE 

LINES RESTART0 

PUBLICS SYMBOLS 



LOADING AND EXECUTING A PROGRAM 

ON INTELLEC® MICROCOMPUTER 

DEVELOPMENT SYSTEMS 

The command syntax to load and execute a FORTRAN program is as 
follows: 

[device] object-file [UNIT n = device] [,UNITn = device]... 



NUL 
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+ 


2B 


V 


56 


SOH 
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, 
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W 
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STX 
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X 


58 


ETX 
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EOT 
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5C 


BEL 
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2 
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5D 


BS 
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A(t) 


5E 


HT 


09 


4 


34 
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5F 


LF 


0A 


5 
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' 


60 


VT 


0B 


6 


36 


a 


61 


FF 


0C 


7 


37 


b 


62 


CR 


0D 


8 


38 


c 


63 


SO 


0E 


9 
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d 


64 


SI 


OF 




3A 


e 


65 


DLE 


10 


J 


3B 


f 


66 


DC1 (X-ON) 


11 


< 


3C 


g 


67 


DC2(TAPE) 


12 


= 


3D 


h 


68 


DC3 (X-OFF) 


13 


> 


3E 


i 


69 


DC4 (TAPE) 


14 


? 


3F 


i 


6A 


NAK 


15 


@ 


40 


k 


6B 


SYN 


16 


A 


41 


I 


6C 


ETB 


17 


B 


42 


m 


6D 


CAN 


18 


C 


43 


n 


6E 


EM 


19 


D 


44 





6F 


SUB 


1A 


E 


45 


P 


70 


ESC 


1B 
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46 
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26 


Q 
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} (ALT MODE) 
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DEL(RUBOUT 
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CODING SEQUENCE 

This diagram shows the order of statements and comment lines within a 
program unit. Statements on the same level can be interspersed. For 
example, FORMAT statements can be interspersed with executable 
statements. 



Comment 
Lines 


PROGRAM, FUNCTION, SUBROUTINE, or 
BLOCK DATA Statement 


FORMAT 
Statements 


IMPLICIT Statement 


Other Specification Statements 


DATA Statement 


Executable Statements 


END Statement 



FORTRAN STATEMENTS 



NONEXECUTABLE STATEMENTS 

Main Program Definition: 

PROGRAM name 

Procedure Definition: 

[typ] FUNCTION func([d[,d]...]) 

SUBROUTINE sub [([d[,d]...])] 

Specification Statements: 

IMPLICIT typ (a[,a]...) 

[,typ(a[,a]...)]... 
INTEGER [*len[,]] name[,name]... 
REALv[,v]... 

LOGICAL [*len[,]] name[,name]... 
CHARACTER [*len[,]] name[,name]. 
DIMENSION a (d[,d...j) 

[,a(d[,d...])]... 
COMMON [/ [cb] / Jnlist 

[[,] / [cb] / nlist]... 
EQUIVALENCE (nlist) [,<nlist)J... 
EXTERNAL proc [,proc]... 

INTRINSIC func [,func]... 

SAVE/cb/[, /cb/]... 



Name main program. 



Define FUNCTION 

Subprogram. 
Define SUBROUTINE 

Subprogram. 



Specify implicit typing. 

Define integer variables. 
Define real variables. 
Define logical variables. 
Define character variables. 
Define array(s). 

Define common block(s). 

Specify shared memory. 
Allow procedure to be actual 

argument. 
Allow intrinsic to be actual 

argument. 
Save common data. 



Data Initialization: 

BLOCK DATA [sub] 

DATA nlist / clist / 
[[,]nlist / clist /]... 

Input/Output: 

label FORMAT ([flist]) 



Define BLOCK DATA 

subprogram. 
Specify data value(s). 



Specify I/O format. 



'flist' Items 



Repeatable 


Nonrepeatable 


Iw 


Integer 


'string' 


Literal Constant 


Fw.d 


Real No. 


nHstring 


Hollerith 


Ew.d 


Real No. 


nX 


Record Position 


Ew.dEe 


Real + Exponent 


/ 


Record Skip 


Lw 


Logical 


kP 


Scale Factor 


A 


Alphanumeric 


BN 


Blank Interpretation 


Aw 


Alphanumeric 


BZ 


Blank Interpretation 


Bw 


Binary I/O 


$ 


File Position 


Zw 


Hexadecimal I/O 







EXECUTABLE STATEMENTS 

Subroutine Reference: 

CALL sub [([a[,a]...])] 
RETURN 



Value Assignment: 

ASSIGNS TO ivname 
v = e 



Execution Control: 

GOTOs 

GOTO(s[,s]...)[,]exp 

GOTOi[[,](s[,s]...)] 

IF(exp)s1,s2, s3 

IF(exp)stmt 

IF(exp)THEN 

ELSE IF (exp) THEN 

ELSE 

END IF 

DOs[,]i = e1,e2[,e3] 

CONTINUE 



Subroutine call. 
Return from external 
procedure. 



Equate name and label. 
Arithmetic, logical, or 
character assignment. 



Unconditional GO TO. 
Computed GO TO. 
Assigned GO TO. 
Arithmetic IF. 
Logical IF. 
Begin IF block. 
Begin ELSE IF block. 
Begin ELSE block. 
End IF block. 
Loop control. 
Continue execution. 



Program Termination: 

PAUSE [n] 
STOP [n] 

END 

Input/Output (Data Transfer): 

READ (cilist) [inlist] 

READ f [Jnlist] 
WRITE (cilist) [outlist] 
PRINT f[,outlist] 



INTRINSIC FUNCTIONS 



Halt program execution. 
Terminate program 

execution. 
End program unit. 



Read input items. 
Read default file. 
Write output items. 
Write default file. 



INTRINSIC FUNCTIONS (Cont.) 



'cilist' Items 



[UNIT=]u 
[FMT=]f 
REC = recno 



Unit Specifier 
Format Specifier 
Record No. Spec. 



IOSTAT = ios 
ERR = stmt 

END = stmt 



I/O Status Specifier 
Error Specifier 
EOF Specifier 



Input/Output (file Control): 

OPEN (olist) 
CLOSE (clist) 
BACKSPACE u 
BACKSPACE (alist) 
REWINDu 
REWIND (alist) 
ENDFILEu 
ENDFILE (alist) 



Connect unit/file. 
Disconnect unit/file. 
Backspace file. 
Backspace file. 
Rewind file. 
Rewind file. 
Markend-of-file. 
Mark end-of-file. 



'olist' Items 



[UNIT] = U 


Unit Specifier 


ACCESS = ace 


Access Method 


IOSTAT = ios 


I/O Status Spec. 


FORM = fmt 


Formatting Specifier 


ERR = stmt 


Error Specifier 


RECL=reclen 


Record Length 


FILE = fnam 


File Name 


BLANK = blnk 


Blank Interpretation 


STATUS=stat 


File Status 


CARRIAGE=car 


Carriage Control 



'clist' Items 



[UNIT=]u 
IOSTAT = ios 



Unit Specifier 
I/O Status Spec. 



ERR = stmt 
STATUS=stat 



Error Specifier 
File Disposition 



'alist' Items 



[UNIT=]u 
ERR = stmt 



Unit Specifier 
Error Specifier 



IOSTAT = ios 



I/O Status Specifier 



FORM 


FUNCTION 


TYPE OF 


ARGUMENTS 


FUNCTION 


INT (a) 
IFIX (a) 
REAL (a) 


Convert a to type 
integer 

Converts to type 
integer 

Converts to type 
real 


Real 
Real 

Integer 


Integer 
Integer 
Real 


FLOAT (a) 


Converts to type 
real 


Integer 


Real 


ICHAR (a) 

AINT(a) 

ANINT(a) 


Converts to type 
integer 
Truncates to 
integer value 
Rounds to nearest 
whole number 


Character 

Real 

Real 


Integer 

Real 

Real 


NINT(a) 
IABS (a) 


Rounds to nearest 
integer 

Return absolute 
value of a 


Real 

Integer 


Integer 
Integer 


ABS(a) 


Return absolute 
value of a 


Real 


Real 


MOD(a1,a2) 


Return remainder 
from a1/a2 


Integer 


Integer 


AMOD(a1,a2) 


Return remainder 
from 37/s,? 


Real 


Real 


ISIGN(a1,a2) 


Transfer sign of a2 

t037 


Integer 


Integer 


SIGN(a1,a2) 


Transfer sign of a2 
\oa1 


Real 


Real 


IDIM(a1,a2) 


Returna7-a,2if>0; 
otherwise 


Integer 


Integer 


DIM(a1,a2) 


Return a1-a2 if>0; 
otherwise 


Real 


Real 


MAX0(a1 an) 


Select largest 
value from list 


Integer 


Integer 


AMAX1(a1 an) 


Select largest 
value from list 


Real 


Real 


AMAX0(a1,...,an) 


Select largest 
value from list 


Integer 


Real 


MAX1(a1,...,an) 


Select largest 
value from list 


Real 


Integer 


MIN0(a1,...,an) 


Select smallest 
value from list 


Integer 


Integer 



FORM 


FUNCTION 


TYPE OF 


ARGUMENTS 


FUNCTION 


AMIN1(a1 an) 


Select smallest 
value from list 


Real 


Real 


AMINO (a1 an) 


Select smallest 
value from list 


Integer 


Real 


MINI (a1,...,an) 


Select smallest 
value from list 


Real 


Integer 


SORT (a) 


Return'^ - for 
a>0 


Real 


Real 


EXP (a) 
ALOG (a) 


Return e**s 
Return log (a ) for 
a>0 


Real 
Real 


Real 
Real 


ALOG10(a) 


Return log 10 (s) 
fora>0 


Real 


Real 


SIN (a) 
COS (a) 
TAN (a) 
ASIN (a) 
ACOS(a) 


Return sine of a 
Return cosine of a 
Return tangent of a 
Returnarcsineofa 
Return arccosine 
of a 


Real 
Real 
Real 
Real 
Real 


Real 
Real 
Real 

Real 
Real 


ATAN (a) 


Return arctangent 
of a 


Real 


Real 


ATAN2(a1,a2) 


Return arctangent 
of a1/a2 


Real 


Real 


SINH(a) 


Return hyperbolic 
sine of a 


Real 


Real 


COSH (a) 


Return hyperbolic 
cosine of a 


Real 


Real 


TANH(a) 
LGE(a1,a2) 


Return hyperbolic 
tangent of 3 
Return TRUE if 
al >a2, else 
return FALSE 


Real 
Character 


Real 
Logical 


LGT(a1,a2) 


Return TRUE if 
a7 >a2, else 
return FALSE 


Character 


Logical 


LLE(a1,a2) 


Return TRUE if 
a1 <a2, else 
return FALSE 


Character 


Logical 


LLT(a1,a2) 


Return TRUE if 
a1 <a2, else 
return FALSE 


Character 


Logical 



